home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 1 / Literacy Segments Part 1 / background_79358.txt < prev    next >
Text File  |  1989-08-22  |  13KB  |  593 lines

  1. -- background: 79358 from stack: in
  2. -- bmap block id: 79474
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 1.2.1 Practice3
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   put line (line 2 of fld "key") of answerTracker into theLocs
  11.   if theLocs is not empty then
  12.     repeat with i = 1 to number of lines in fld "origins"
  13.       get item (i*2 - 1) to (i*2) of theLocs
  14.       set the loc of bg btn (i + 8) to it
  15.     end repeat
  16.   else
  17.     repeat with j = 1 to number of lines in fld "origins"
  18.       set the loc of bg btn (j + 8) to (line j of fld "origins")
  19.     end repeat
  20.   end if
  21.   pass openCard
  22. end openCard
  23.  
  24. on closeCard
  25.   global answerTracker
  26.   get line 2 of fld "key"  -- says which line of global to worry about
  27.   put empty into line it of answerTracker
  28.   repeat with i = 1 to number of lines in fld "origins"
  29.     put the loc of bg btn (i + 8) & "," after line it of answerTracker
  30.   end repeat
  31.   delete last char of line it of answerTracker
  32.   pass closeCard
  33. end closeCard
  34.  
  35. on moveButton
  36.   get fld "decisions"
  37.   repeat until the mouse is up
  38.     if item 2 of the mouseLoc > it
  39.     then set the loc of the target to the mouseLoc
  40.   end repeat
  41.   get the loc of the target
  42.   if it is within the rect of bg btn "Links" or it is within the rect of bg btn "Nodes" then exit moveButton
  43.   set the loc of the target to line (number of the target - 8) of fld "origins"
  44. end moveButton
  45.  
  46. on hideFeedback
  47.   lock screen
  48.   hide fld "Feedback1"
  49.   hide fld "Feedback2"
  50.   hide fld "CorrectAnswer"
  51.   hide fld "MasterFeedback"
  52.   hide bg btn "Done"
  53.   unlock screen
  54. end hideFeedback
  55.  
  56. on showFeedback
  57.   lock screen
  58.   show fld "Feedback1"
  59.   show fld "Feedback2"
  60.   show fld "CorrectAnswer"
  61.   show fld "MasterFeedback"
  62.   show bg btn "Done"
  63.   unlock screen
  64. end showFeedback
  65.  
  66.  
  67. -- part 3 (field)
  68. -- low flags: 01
  69. -- high flags: 0000
  70. -- rect: left=18 top=1 right=38 bottom=442
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 156
  75. -- text size: 24
  76. -- style flags: 10240
  77. -- line height: 32
  78. -- part name: Title
  79.  
  80.  
  81. -- part 5 (field)
  82. -- low flags: 81
  83. -- high flags: 0001
  84. -- rect: left=423 top=0 right=13 bottom=466
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 65535
  88. -- font id: 4
  89. -- text size: 9
  90. -- style flags: 0
  91. -- line height: 12
  92. -- part name: CardTitle
  93.  
  94.  
  95. -- part 14 (button)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=443 top=5 right=72 bottom=512
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Instant Reference
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   instantReference "1.2.1"
  110. end mouseUp
  111.  
  112.  
  113. -- part 15 (button)
  114. -- low flags: 00
  115. -- high flags: 2000
  116. -- rect: left=480 top=143 right=172 bottom=511
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 1310 / 1310
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: Student Services
  125. ----- HyperTalk script -----
  126. on mousedown
  127.   SSpopUp
  128. end mousedown
  129.  
  130. on mouseup
  131.   if the mouseloc is not within the rect of me then exit to hyperCard
  132.   doSS
  133. end mouseup
  134.  
  135.  
  136.  
  137. -- part 16 (button)
  138. -- low flags: 00
  139. -- high flags: 2000
  140. -- rect: left=482 top=176 right=205 bottom=511
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 162 / 162
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Help
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   Help
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 17 (button)
  157. -- low flags: 00
  158. -- high flags: 2000
  159. -- rect: left=482 top=294 right=320 bottom=509
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 1236 / 1236
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Last Menu
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   go to card "Links and Nodes P/1"
  171. end mouseUp
  172.  
  173.  
  174.  
  175.  
  176. -- part 18 (button)
  177. -- low flags: 00
  178. -- high flags: 0000
  179. -- rect: left=478 top=319 right=341 bottom=498
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 1401 / 1401
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: Prev
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.  
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 19 (button)
  196. -- low flags: 00
  197. -- high flags: 0000
  198. -- rect: left=493 top=319 right=341 bottom=512
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 1400 / 1400
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: Next
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.  
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 21 (field)
  215. -- low flags: 01
  216. -- high flags: 0000
  217. -- rect: left=16 top=38 right=65 bottom=441
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 0
  221. -- font id: 156
  222. -- text size: 20
  223. -- style flags: 0
  224. -- line height: 26
  225. -- part name: Subtitle
  226.  
  227.  
  228. -- part 22 (field)
  229. -- low flags: 01
  230. -- high flags: 0000
  231. -- rect: left=16 top=70 right=126 bottom=445
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 0
  235. -- font id: 156
  236. -- text size: 16
  237. -- style flags: 0
  238. -- line height: 17
  239. -- part name: Header
  240.  
  241.  
  242. -- part 33 (button)
  243. -- low flags: 00
  244. -- high flags: 8004
  245. -- rect: left=22 top=236 right=306 bottom=197
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: Links
  254.  
  255.  
  256. -- part 35 (button)
  257. -- low flags: 00
  258. -- high flags: 8004
  259. -- rect: left=231 top=236 right=306 bottom=405
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: Nodes
  268.  
  269.  
  270. -- part 23 (field)
  271. -- low flags: 01
  272. -- high flags: 0000
  273. -- rect: left=16 top=129 right=149 bottom=445
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 0
  277. -- font id: 3
  278. -- text size: 10
  279. -- style flags: 256
  280. -- line height: 15
  281. -- part name: Instruction
  282.  
  283.  
  284. -- part 24 (button)
  285. -- low flags: 00
  286. -- high flags: 8000
  287. -- rect: left=296 top=153 right=197 bottom=334
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 31065 / 31065
  290. -- text alignment: 1
  291. -- font id: 0
  292. -- text size: 12
  293. -- style flags: 0
  294. -- line height: 16
  295. -- part name: Printer
  296. ----- HyperTalk script -----
  297. on mouseDown
  298.   moveButton
  299. end mouseDown
  300.  
  301.  
  302. -- part 26 (button)
  303. -- low flags: 00
  304. -- high flags: 8000
  305. -- rect: left=155 top=153 right=197 bottom=199
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 6453 / 6453
  308. -- text alignment: 1
  309. -- font id: 0
  310. -- text size: 12
  311. -- style flags: 0
  312. -- line height: 16
  313. -- part name: Telephone
  314. ----- HyperTalk script -----
  315. on mouseDown
  316.   moveButton
  317. end mouseDown
  318.  
  319.  
  320. -- part 27 (button)
  321. -- low flags: 00
  322. -- high flags: 8000
  323. -- rect: left=18 top=153 right=197 bottom=60
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 25077 / 25077
  326. -- text alignment: 1
  327. -- font id: 0
  328. -- text size: 12
  329. -- style flags: 0
  330. -- line height: 16
  331. -- part name: Computer
  332. ----- HyperTalk script -----
  333. on mouseDown
  334.   moveButton
  335. end mouseDown
  336.  
  337.  
  338. -- part 28 (button)
  339. -- low flags: 00
  340. -- high flags: 8000
  341. -- rect: left=357 top=153 right=197 bottom=411
  342. -- title width / last selected line: 0
  343. -- icon id / first selected line: 31891 / 31891
  344. -- text alignment: 1
  345. -- font id: 0
  346. -- text size: 12
  347. -- style flags: 0
  348. -- line height: 16
  349. -- part name: Microwave
  350. ----- HyperTalk script -----
  351. on mouseDown
  352.   moveButton
  353. end mouseDown
  354.  
  355.  
  356. -- part 29 (button)
  357. -- low flags: 00
  358. -- high flags: 8000
  359. -- rect: left=226 top=153 right=197 bottom=266
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 26242 / 26242
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: Wires
  368. ----- HyperTalk script -----
  369. on mouseDown
  370.   moveButton
  371. end mouseDown
  372.  
  373.  
  374. -- part 30 (button)
  375. -- low flags: 00
  376. -- high flags: 8000
  377. -- rect: left=89 top=153 right=197 bottom=128
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 1473 / 1473
  380. -- text alignment: 1
  381. -- font id: 0
  382. -- text size: 12
  383. -- style flags: 0
  384. -- line height: 16
  385. -- part name: Cables
  386. ----- HyperTalk script -----
  387. on mouseDown
  388.   moveButton
  389. end mouseDown
  390.  
  391.  
  392. -- part 42 (field)
  393. -- low flags: 81
  394. -- high flags: 2007
  395. -- rect: left=8 top=36 right=94 bottom=231
  396. -- title width / last selected line: 0
  397. -- icon id / first selected line: 0 / 0
  398. -- text alignment: 0
  399. -- font id: 156
  400. -- text size: 16
  401. -- style flags: 0
  402. -- line height: 17
  403. -- part name: Feedback1
  404.  
  405.  
  406. -- part 46 (field)
  407. -- low flags: 81
  408. -- high flags: 2007
  409. -- rect: left=8 top=280 right=338 bottom=231
  410. -- title width / last selected line: 0
  411. -- icon id / first selected line: 0 / 0
  412. -- text alignment: 0
  413. -- font id: 156
  414. -- text size: 16
  415. -- style flags: 0
  416. -- line height: 17
  417. -- part name: CorrectAnswer
  418.  
  419.  
  420. -- part 47 (field)
  421. -- low flags: 81
  422. -- high flags: 2004
  423. -- rect: left=147 top=132 right=304 bottom=356
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 0 / 0
  426. -- text alignment: 0
  427. -- font id: 156
  428. -- text size: 16
  429. -- style flags: 0
  430. -- line height: 17
  431. -- part name: MasterFeedback
  432.  
  433.  
  434. -- part 48 (button)
  435. -- low flags: 80
  436. -- high flags: A002
  437. -- rect: left=215 top=279 right=296 bottom=284
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: Done
  446. ----- HyperTalk script -----
  447. on mouseUp
  448.   lock screen
  449.   hide fld "MasterFeedback"
  450.   hide bg btn "Done"
  451.   unlock screen
  452. end mouseUp
  453.  
  454.  
  455.  
  456. -- part 49 (field)
  457. -- low flags: 81
  458. -- high flags: 2007
  459. -- rect: left=8 top=97 right=155 bottom=231
  460. -- title width / last selected line: 0
  461. -- icon id / first selected line: 0 / 0
  462. -- text alignment: 0
  463. -- font id: 156
  464. -- text size: 16
  465. -- style flags: 0
  466. -- line height: 17
  467. -- part name: Feedback2
  468.  
  469.  
  470. -- part 54 (button)
  471. -- low flags: 00
  472. -- high flags: A004
  473. -- rect: left=268 top=321 right=340 bottom=413
  474. -- title width / last selected line: 0
  475. -- icon id / first selected line: 0 / 0
  476. -- text alignment: 1
  477. -- font id: 0
  478. -- text size: 12
  479. -- style flags: 0
  480. -- line height: 16
  481. -- part name: Answer
  482. ----- HyperTalk script -----
  483. on mouseUp
  484.   send mouseUp to bg btn "done"
  485.   repeat with i = 1 to number of lines in fld "origins"
  486.     set the loc of bg btn (i + 8) to (line i of fld "origins")
  487.   end repeat
  488.   put line 1 of fld "key" into theLocs
  489.   repeat with i = 1 to number of lines in fld "origins"
  490.     get item (i*2 - 1) to (i*2) of theLocs
  491.     set the loc of bg btn (i + 8) to it
  492.   end repeat
  493. end mouseUp
  494.  
  495.  
  496. -- part 68 (button)
  497. -- low flags: 00
  498. -- high flags: A004
  499. -- rect: left=68 top=321 right=340 bottom=213
  500. -- title width / last selected line: 0
  501. -- icon id / first selected line: 0 / 0
  502. -- text alignment: 1
  503. -- font id: 0
  504. -- text size: 12
  505. -- style flags: 0
  506. -- line height: 16
  507. -- part name: Check Answer
  508. ----- HyperTalk script -----
  509. on mouseUp
  510.   lock screen
  511.   if the loc of bg btn "computer" is within the rect of bg btn "Nodes" and the loc of bg btn "cables" is within the rect of bg btn "Links" and the loc of bg btn "Telephone" is within the rect of bg btn "Nodes" and the loc of bg btn "Wires" is within the rect of bg btn "Links" and the loc of bg btn "Printer" is within the rect of bg btn "Nodes" and the loc of bg btn "Microwave" is within the rect of bg btn "Links"
  512.   then put fld "feedback1" into fld "MasterFeedback"
  513. else put fld "feedback2" into fld "MasterFeedback"
  514. show fld "MasterFeedback"
  515. show bg btn "Done"
  516. unlock screen
  517. end mouseUp
  518.  
  519.  
  520.  
  521. -- part 71 (button)
  522. -- low flags: 00
  523. -- high flags: 2000
  524. -- rect: left=482 top=208 right=234 bottom=509
  525. -- title width / last selected line: 0
  526. -- icon id / first selected line: 1234 / 1234
  527. -- text alignment: 1
  528. -- font id: 0
  529. -- text size: 12
  530. -- style flags: 0
  531. -- line height: 16
  532. -- part name: Lesson
  533. ----- HyperTalk script -----
  534. on mouseUp
  535.   lesson "1.2.1"
  536. end mouseUp
  537.  
  538.  
  539. -- part 72 (field)
  540. -- low flags: 81
  541. -- high flags: 0002
  542. -- rect: left=0 top=0 right=102 bottom=61
  543. -- title width / last selected line: 0
  544. -- icon id / first selected line: 0 / 0
  545. -- text alignment: 0
  546. -- font id: 3
  547. -- text size: 12
  548. -- style flags: 0
  549. -- line height: 16
  550. -- part name: origins
  551.  
  552.  
  553. -- part 73 (field)
  554. -- low flags: 81
  555. -- high flags: 0002
  556. -- rect: left=64 top=0 right=102 bottom=126
  557. -- title width / last selected line: 0
  558. -- icon id / first selected line: 0 / 0
  559. -- text alignment: 0
  560. -- font id: 3
  561. -- text size: 12
  562. -- style flags: 0
  563. -- line height: 16
  564. -- part name: destinations
  565.  
  566.  
  567. -- part 74 (field)
  568. -- low flags: 81
  569. -- high flags: 0002
  570. -- rect: left=128 top=0 right=70 bottom=162
  571. -- title width / last selected line: 0
  572. -- icon id / first selected line: 0 / 0
  573. -- text alignment: 0
  574. -- font id: 3
  575. -- text size: 12
  576. -- style flags: 0
  577. -- line height: 16
  578. -- part name: decisions
  579.  
  580.  
  581. -- part 75 (field)
  582. -- low flags: 81
  583. -- high flags: 0002
  584. -- rect: left=164 top=0 right=35 bottom=503
  585. -- title width / last selected line: 0
  586. -- icon id / first selected line: 0 / 0
  587. -- text alignment: 0
  588. -- font id: 3
  589. -- text size: 12
  590. -- style flags: 0
  591. -- line height: 16
  592. -- part name: key
  593.